Option Explicit
Sub C_Sample019()
    Dim myRng As Range
    Set myRng = Range("A1")				'Nxs
    With myRng
        .Clear						'xs檺M
        .Value = "A"					'rꪺ]w
        'ǳƨ즹
        MsgBox "ܧxs椺rtm"
        .VerticalAlignment = xlCenter  			'aVm
        .HorizontalAlignment = xlCenter			'Vm
    End With
    Set myRng = Nothing					'
End Sub
